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APPENDIX A 
Network-Level Procedures 

The notation LSU(updateJist) represents a link-state-update message that includes the 
updates (u, v, c, sn) in the updatejist 

Process JJpdate(i, nbr, in_message){ 

// Called when an update message in_message is received from nbr. 

Update_TopologyJTable(i, nbr, in_message, update Jist). 

Update_Parents(i). 

For each node src in TT J { 

Let update Jist(src) consist of all tuples (k, 1, c, sn) in update Jist such that 
k - src. 

If update Jist(src) is nonempty 

Send message LSU(updateJist(src)) to childrenj(src).}} 

Update_Topology_Table(i, nbr, injnessage, update Jist){ 
Set update Jist to empty list. 
For each ((u,v,c,sn) in in_message) { 
If(pJ(u) = nbr) { 

If ((u,v) is in TTJ and sn > TT_i(u,v).sn) { 
Add (u,v,c,sn) to updatejist. 
Set TTJ(u,v).sn - sn. 
Set TT_i(u,v).c = c. 
If (sn > snj(u)) Set snj(u) = sn.} 
If ((u,v) is not in TTJ) { 

Add (u ? v 5 c,sn) to TTJ. 

Add (u ? v ? c,sn) to updatejist. 

If (sn > sn J(u)) Set sn _i(u) = sn. } } } } 

Link__Change(ij){ 

// Called when the cost of link (i j) changes. 
If (|TTJ(i j),c - cost(ij)|/TTJ(i ? j).c > epsilon) { 

Set TT_i(ij).c = cost(i j). 

Set TTJ(i ,j).sn = current time stamp SNJ. 

Set updatejist - {(i, j, TTJ(i, j).c 5 TTJ(iJ).sn) 

Send message LSU(updateJist) to childrenj(i).}} 

Link_Down(ij){ 

// Called when link (ij) goes down. 
Remove j fromNJ. 
Set TTJ(i j).c = infinity. 



Set TT_i(i j).sn = current time stamp SNJL 
UpdateJParents(i). 

For each (node src in TTJ) remove j from childrenj(src). 
Set updatejist = {(ij 5 infinity, TTJ(i ? j).sn)}. 
5 Send message LSU(update_list) to children_i(i). } 

LinkUp(ij){ 

II Called when link (i j) comes up. 
Addj toNJ. 
Set TT_i(i j).c = cost(i j). 
1 0 Set TTJ(ij).sn = current time stamp SN_i. 

UpdateJParents(i). 

Set update Jist - {(ij, TT_i(ij).c, TTJ(ij).sn)}. 
Send message LSU(update_list) to children_i(i).} 

Update_Parents(i) { 
1 5 Compute JSfew_JParents(i) 
For each (node k in N_J){ 

Set cancel_src_Jist(k), src_list(k), and sn__list(k) to empty.} 
For each (node src in TTj such that src != i){ 
If (new_p_i(src) !=p_i(src)){ 
20 If(p_i(src)!=NULL){ 

Set k = p_i(src). 
Add src to cancel_src_list(k).} 
Set p_i(src) = newjp_i(src). 
If (new_p_i(src) != NULL) { 
25 Set k = new jp__i(src) . 

Add src to src _list(k). 
Add sn_i(src) to sn_list(k). } } } 
For each (node k in N_i){ 

If (src_list(k) is nonempty)! 
30 Send message NEW PARENT(src_list(k), snjist(k)) to k.} 

If (cancel_jsrc_list(k) is nonempty { 

Send message CANCEL PARENT(cancel_srcJist(k)) to k.}}} 

Compute_New_Parents(i) { 

For each (node src in TTJ such that src != i){ 
3 5 Set new_p_i(src) - NULL. } 

Compute min-hop paths using Dijkstra. 

For each (node src in TTJ such that src != i){ 

Set new_p_i(src) equal to the neighbor of node i along the minimum-hop 
path from i to src.}} 

40 Process_New_Parent(i, nbr, srcjist, sn_list){ 

// Called when node i receives a NEW PARENT(src_list ? snjist) message from 
nbr. 

Set updatejist to empty list. 
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For each (node src in srcjist) { 

Let sn_listsrc denote the sequence number corresponding to src in sn_Jist. 
Add nbr to children_i(src). 

Set new_updates = {(k, 1, c, sn) in TTJ such that k = src and sn > 
5 snjist.src}. 

Add new_updates to update_list} 
Send message LSU(update_list) to nbr.} 



Process_Cancel_Parent(i,nbr,src_list ) { 
10 // Called when node i receives a CANCEL PARENT(src_list) message from nbr. 

For each (node src in src_list) remove nbr from children_i(src).} 

Send_Periodic__Updates(i) { 

Set update__list to empty. 

For each (j in N_J such that TTJ(i j). c != infinity)! 
15 Set TTJ(ij).sn = current time stamp SNJ. 

Add (i, j, TTJ(i j).c, TTJ(i j).sn) to update_list. } 
Send message LSU (update Jist) to children_i(i).} 

Compute__New_Parents2(i) { 
S<-0; 

20 For each (v e TTJ) { 

Set d(v) = infinity; 
Set pred(v) = NULL; 
Set new_p_i(v) = NULL; } 
d(i)*-0; 

25 While (there exists w e TTJ - S such that d(w) < infinity)! 

Set u = node w e TTJ - S that minimizes d(w); 
SetS = Su{u}; 

For each (v such that (u, v) e TTJ) { 

If (d(u) + 1 < d(v) or [d(u) + 1 - d(v) and newj3_i(u) = p_J(v)]) { 
30 Setd(v) = d(u) + 1; 

Set pred(v) = u; 

If (u = i) Set newjp_i(v) = v; 

Else Set new_p_i(v) = new_p_i(u); } } } } 

Partial-Topology 1 



35 The function Mark_Special_Links() is called whenever the parent p_i(src) or the set of 

children children_i(src) for any source src changes. The notation LSU(update_list) represents a 
link-state-update message that includes the updates (u, v, c, sn, sp) in the update_list ? where sp is 
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a single bit that indicates whether the link is "special", i.e., whether it should be broadcast to all 
nodes. 



Mark jSpecial_Links(i) { 

For all (outgoing links (i j)) {Set TT_i(i j).sp = 0;} 
5 For all (nodes src != i){ 

if (p_i(src) !- NULL and p_i(src) != src){ 

Set TT_i(i, p_i(src)).sp = 1 ;} //Link is special. 
For all (nodes j in childrenj(src)){ 

Set TT_i(i,j).sp = 1 ;} //Link is special. 

10 } 

} 

Update JTopologyJTable(i, nbr, injnessage, updatejist){ 
Set update_list to empty list. 
For each ((u,v,c,sn,sp) in in_message) { 
15 If(p_i(u) = nbr) { 

If ((u,v) is in TT_i and sn > TT_J(u,v).sn) { 
Set TT_i(u,v).sn = sn. 
Set TT_i(u,v).c = c. 
Set TT_i(u,v).sp = sp. 

20 (Only links marked as special are forwarded.) 

If (sp = 1) Add (u,v,c,sn,sp) to updatejist 

If (sn > sn_i(u)) Set sn_i(u) = sn.} 
If ((u,v) is not in TTM) { 

Add (u,v ; c,sn,sp) to TTJ. 
25 If (sp = 1) Add (u,v 5 c ? sn 3 sp) to update_list. 

If (sn > sn_i(u)) Set sn__i(u) = sn. } } } } 

Process_Update(i ? nbr, in__message){ 

// Called when an update message in_message is received from nbr. 
30 Update_Topology_Table(i, nbr 5 in_message ? update_list). 

Update_Parents(i). 
Mark_Special_Links(i). 
For each node src in TT_i { 

Let update_list(src) consist of all tuples (k 5 1, c, sn, sp) in update_list such 
35 that k = src. 

If update_list(src) is nonempty 

Send message LSU(update_list(src)) to children_i(src).}} 

Link_Change(ij){ 

// Called when the cost of link (i,j) changes. 
40 If (|TT J(i j).c - cost(i j)|/TT J(i j).c > epsilon) { 

Set TT_i(i,j).c = cost(i,j). 
Set TT_i(i j).sn = current time stamp SN_i. 
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Set update Jist = {(i, j, TTJ(i, j).c, TTJ(i, j).sn, TTJ(ij).sp)}. 
Send message LSU(update_list) to childrenj(i).}} 



Link_Down(i,j){ 

// Called when link (i j) goes down. 
5 Remove j from N_i. 

Set TTJ(i,j).c = infinity. 

Set TTJ(i j).sn = current time stamp SN_i. 

Update_Parents(i). 

For each (node src in TTJ) remove j from children J(src). 
1 0 Mark__Special__Links(i) . 

Set update Jist = {(ij 9 infinity, TTJ(i j).sn, TT_J(i,j).sp)}. 
Send message LSU(update__list) to childrenj(i).} 

Link_Up(ij){ 

// Called when link (i j) comes up. 
15 AddjtoNJ. 

Set TT_i(i j).c = cost(i j). 

Set TTJ(i j).sn = current time stamp SN_i. 

Update_Parents(i). 

Mark_Special_Links(i). 
20 Set update__list = {(i J, TTJ(ij).c, TT J(i j).sn> TT_i(i ,j).sp)} . 

Send message LSU(updateJist) to childrenj(i).} 

Update_Parents(i) { 

ComputeJNfew_Parents(i). 
For each (node k in NJ) 
25 Set cancel_src_list(k) ? src_list(k) ? and snjist(k) to empty. 

For each (node src in TTJ such that src != i){ 
If (new_p_i(src) != p_i(src)){ 
If(p_i(src)!=NULL){ 
Set k = p_i(src). 

3 0 Add src to cancel_srcjist(k). } 

Set p_i(src) = new_p_J(src). 
If (new_p_i(src) !-NULL){ 
Set k = newj?__i(src). 
Add src to srcjist(k). 
3 5 Add snj(src) to snjist(k). } } } 

For each (node k in N_i){ 

If (srcjist(k) is nonempty) { 

Send message NEW PARENT(srcJist(k), sn_list(k)) to k.} 
If (cancel_src_list(k) is nonempty! 
40 Send message CANCEL PARENT(cancel_srcJist(k)) to k. } } } 

Compute__New_Parents(i) { 

For each (node src in TTJ such that src != i){ 
Set new_p_J(src) = NULL.} 
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Compute min-hop paths using Dijkstra. 

For each (node src in TTJ such that src != i){ 

Set new_p_i(src) equal to the neighbor of node i along the minimum-hop 

path from i to src.}} 

5 Process_New_Parent(i, nbr, src_list ? snjist) { 

//Called when node i receives a NEW PARENT(srcJist, snjist) message from 
nbr. 

Set update_list to empty list. 
For each (node src in src_list) { 
10 Let sn_Jistsrc denote the sequence number corresponding to src in snjist 

Add nbr to children J(src). 

If (src != i) Set TT_i(i, nbr).sp = 1 . //Link to nbr is special. 
If (src = i) Set new_updates = {(src, v, c, sn, sp) in TTJ such that 
sn> sn_list.src}. 

1 5 If (src != i) Set new__updates = {(src, v, c, sn, sp) in TTJ such that 

sn > snjistsrc and sp = 1 }. //Only special links are sent. 
Add new_updates to updatejist.} 
Send message LSU(update_Jist) to nbr.} 

Process_Cancel_Parent(i 5 nbr s src__list ) { 
20 // Called when node i receives a CANCEL PARENT(srcJist) message from nbr. 

For each (node src in src_list) remove nbr from children_i(src). 
Mark_Special_Links(i). } 

Send_Periodic_Updates(i) { 

Set update_list to empty. 
25 For each (j in NJ such that TT_i(i,j).c != infinity) { 

Set TT_i(i,j).sn = current time stamp SNJ. 
Add (i, j, TT__i(ij).c ? TT_i(ij).sn, TT_i(ij).sp) to update_list. } 
Send message LSU(update_list) to childrenj(i).} 

Partial-Topology 2 

3 0 Update(i ? k ? in_message) { 

Update_Topology Table(i, k, in_message); 

Lex_Dijkstra; // Uses lexicographic Dijkstra to compute Ti 

Generate__Updates(i, update_Hst); 

if (k does not equal i and update__list is non-empty) { 
35 Send_Updates_Children(i, updatejist); 

Update_Parents(i); 

} 

Send_Updates_Children(i 5 update_list) { 

For each (node k e Ni) {out_message(k) <- 0;} 
40 For each (node src <= TT_i s.t. src does not equal i){ 

update_list(src) <- {(k, 1 ? c) e update_list s.t. k == src}; 
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for each (node k e children_i(src)){ 

Add update_list(src) to out_message(k);} 

} 

For each (node k e Ni s.t. out_message(k) is non-empty) { 
5 Send the message outjnessage(k) to node k;} 

} 

Update_TopologyJTable(i, k, in_message){ 
For each ((u, v, c) e injnessage { 

// Process only updates received from the parent p_i(u) 
10 if(p__i(u) = kork = i){ 

if ((u, v)£ TTj or c! = TTj(u, v).c{ 
TTj(u, v) <- (u, v, c); 
Mark (u, v) as changed in TTj;} 

} 

15 } 

if (injnessage is a P ARENT_RESPONSE) { 

For each (u such that injnessage includes source u){ 
if (pj(u) = k and pending j(u) = 1){ 
pending_i(u) - 0; 

20 For each (v such that TTj contains an entry for (u, v)){ 

if (injnessage does not contain update for link (u, 
v)){ 

TTj(u, v).c <-oo; 
// indicates link should be deleted 
25 Mark (u, v) as changed in TT j; 
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} 



Process_Cancel_Parent(i, nbr ? src__list){ 
For each (src e src_list) 

children j(src) <r- childrenj(src) - {nbr}; 

35 } 

Generate JJpdates(i, update_list){ 
update_list 0; 

for each (entry (u, v, c 5 c') e TTj){ 

if ((u, v) is in new Ti and ((u ? v) is marked as changed or is not in old 
40 Ti)){ 

Add (u, v, c) to updatejist; 
Ti(u, v).c' <- Ti(u, v).c; 
Ri<-Riu{(u, v)}; 
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} 

else if ((u ? v) is in Ri but not in new Ti and c> c') { 
Add (u, v, go) to updatejist; // delete update 
Ti(u, v).c' <- qo; 
Remove (u, v) from Ri; 

} 

if (TT_i(u ? v).c = oo) 

Remove (u ? v) from TTJ; 



10 } 



Update J*arents(i) { 

For each (node k e Ni){ 

cancel_srcjist(k) <~ 0; 
srcjist(k) <r- 0;} 
15 For each (node src eTTJ such that src ^ i) { 

new __p J(src) next node on shortest path to src; 
if (new_p_i(src) ^p_i(src)){ 

if (new_p J(src) * NULL) { 
k <- p i(src); 

20 cancel_srcjist(k) cancel jsrcjist(k) u {src}; 

} 

if (new__p_i(src) * NULL){ 
k <- new__pj(src); 
srcjist(k) <r- srcjist(k) u {src}; 

25 } 

pj(src) <r~ new_p_i(src); 

} 

} 

For each (node k e Ni){ 
30 if (src_list(k) * 0) 

Send NEW_PARENT(src_list(k)) to node k; 
if(cancel_src_list(k) * 0) 

Send CANCEL_PARENT(cancel_src_list(k)) to node k; 

} 

35 } 

Process_New_Parent(i, nbr, srcjist){ 
updatejist 0; 
for each (node u e u Jist) { 

childrenj(u) <- children J(u) u {nbr}; 
40 updates(u) <- {(u ? v, c) € TTJ such that (u ? v) e Ti}; 

updatejist <- updatejist u updates (u); 

} 

Send PARENT RESPONSE(srcJist, updatejist) to nbr;} 
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t ] the appTK^tion klerttjfied above, 
[ ] the patent Wentif^ijabove. 



I hereby state that rights undSr contract or law have been conveyed to and remain with the nonprofit organization 
regarding the above Identifl^ifevention, If the rights held by the nonprofit oiganization are not exclusive, each 
individual, concern, or org^jftotion having rights in the invention must file separate statements as to their status as 
smaR entities and that no rigjjfc to the invention are held by any person, other than the inventor, who would not qualify 
as an Independent inventofttfiKfer 37CFR 1 .9(c) If that person made the invention, or by any concern which would not 
quality as a small busines>ic&rtcem under 37 CFR 1 .9(d) or a nonprofit oigsnkalfcn under 37 CFR 1 .9(e), 

' ; !:;]•• ' 

[ J, , Each P €rson - or orgsnfe«ttion having any rights in the invention Is listed below: 

[ XX ] no such person, concern, or organization exists. 
{ ] each such person* concern, or organization is listed below, 
wij; 

I acknowledge the duty to fitttfjln this application or patent, notification of any change in status resulting in loss of 
entitlement to small entity $&b$ prior to paying, or at the time of paying, the earliest of the issue fee or any 
maintenance fee due afteriftjs! date on which status as a small entity is no longer appropriate. (37 CFR 128(b)) 

NAME OF PERSON SIGNft*S : Richard Cramer 

TITLE IN ORGANtZATIONj^f PERSON SIGNING Assistant Secretary 

ADDRESS OF ^SONSj^ING : SRI International. 333 Ravenswood Ave., Menlo Park. CA 94025 





signature U W \A*ffi~-~-^ date September 12, 2000 



